-- background: 2573 from stack: in
-- bmap block id: 2113
-- flags: 4000
-- background id: 0
-- name: 
----- HyperTalk script -----
On openBackground
  push recent card
end openBackground

on closeField
  put the short date into field "Date"
  get field "birth date"
  convert it to short date
  put it into field "birth date"
end closeField

on setid
  global identification, birthdate, sex
  put field "first name" && field "last name" && field "hospital number" into identification
  put field "birth date" into birthdate
  put field "sex" into sex
  get name of this card
  if it is not empty then
    set name of this card to identification
  end if
end setid




-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=417 top=250 right=275 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=275 top=252 right=277 bottom=302
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=245 top=252 right=277 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=386 top=34 right=60 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Do
----- HyperTalk script -----
on mouseUp
  go to card "First Do" of "Datebook"
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=95 top=225 right=256 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 30696 / 30696
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then get the message
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=414 top=35 right=59 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go "Home"
end mouseUp



-- part 32 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=145 top=64 right=80 bottom=266
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: last name


-- part 33 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=269 top=64 right=80 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: first name


-- part 34 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=393 top=64 right=80 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: middle initial


-- part 48 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=415 top=64 right=80 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sex


-- part 35 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=150 top=92 right=108 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: street


-- part 36 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=150 top=117 right=133 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: city


-- part 37 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=269 top=117 right=133 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: state


-- part 38 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=393 top=117 right=133 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: middle initial


-- part 40 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=150 top=147 right=163 bottom=248
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hospital number


-- part 47 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=149 top=175 right=191 bottom=248
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: birth date
----- HyperTalk script -----






-- part 41 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=251 top=164 right=225 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: diagnosis


-- part 42 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=123 top=233 right=249 bottom=221
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: telephone number


-- part 43 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=14 top=40 right=58 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New card
----- HyperTalk script -----
on mouseUp
  domenu New Card
  opencard
end mouseUp



-- part 44 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=256 right=270 bottom=411
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: date


-- part 45 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=462 top=197 right=233 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: growth records
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  setid
  go "growth records"

end mouseUp




-- part 49 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=465 top=164 right=192 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: treatme